home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Creative Computers
/
Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso
/
commercial
/
legendary_design
/
datatax
/
datatax_demo
/
tax_system
/
bc.empty.return
< prev
next >
Wrap
Text File
|
1994-11-17
|
3KB
|
115 lines
DBX
YEAR=90
VERSION=BC
CODED_VERSION=B
ITEMIZE_ON_FORM=26 =27
BOTTOM_LINE=D34 -D20
RECALC_LIST=E0 =K0 =R0 =S0 =W7 =W13 =L0 =Q91 =B34 =a6 =Z56 =C34 =E0 =AT24 =AZ62 =AX0 =D3
USER_NAME=A7=A0
TAX_TABLE_RANGES=0
PAGES=53
@ac_guts
L=56
$D0.4 0 0 ":"
$D1. 0 0 ":x;`D02"
$D2.4 0 0 ":B:B57;`D03"
$D3.12 0 0 ":E:?D01>0{D01-D02_E22};`D10"
$D4. 0 0 ":W:x;`W20"
$D5.4 0 0 ":W:W24;`D08"
$D6. 0 0 ":x;`D08"
$D7. 0 0 ":x;`D08"
$D8.4 0 0 ":D5+D6+D7;`D09"
$D9.4 0 0 ":D8;`D10"
$D10.4 0 0 ":?46,25>0{47,2_D03-D09};?z<0{0_z};`D11"
$D11.4 0 0 ":E:E30;`D12"
$D12.4 0 0 ":D10+D11;`D13"
$D13.4 0 0 ":E:E38;`D15"
$D14. 0 0 ":x;`D15"
$D15.4 0 0 ":D13-D14;?z<0{0_z};`D16"
$D16.4 0 0 ":D15;`D17"
$D17.4 0 0 ":C:C8;`D18"
$D18.4 0 0 ":W19+W38;`D19"
$D19.4 0 0 ":K:K20;?z<0{-K20_0};`D20"
$D20.4 0 0 ":D12+D16+D17+D18+D19;`D21"
$D21.4 0 0 ":K:K20;?z<0{0_K20};`D22"
$D22.4 100 0 ":K:K30;`D23"
$D23.4 0 0 ":Q:Q96;`D24"
$D24.4 0 0 ":Q:Q99;`D30"
$D25. 0 0 ":x;`D30"
$D26. 0 0 ":x;`D30"
$D27. 0 0 ":x"
$D28.4 0 0 ":L35;`D30"
$D29. 0 0 ":x"
$D30.4 0 0 ":Q:Q52;`D33"
$D31. 0 0 ":x;`D33"
$D32. 0 0 ":x;`D33"
$D33.4 100 0 ":D21+D22+D23+D24+D25+D26+D27+D28+D29+D30+D31+D32;`D34"
$D34.4 100 0 ":D33;`D35"
$D35.4 -100 0 ":D20-D34;`D36"
$D36.4 100 0 ":?D35<0{-D35_0};`D37"
$D37.4 0 0 ":?D35<0{0_D35};`D38"
$D38.4 0 0 ":D37"
"D39. 0 0 " "
"D40. 0 0 " "
"D41. 0 0 " "
"D42. 0 0 " "
"D43. 0 0 " "
"D44. 0 0 " "
"D45. 0 0 " "
"D46. 1 0 "x"
"D47. 0 0 " "
@e_guts
$E31.4 0 0 ":E15%51+E15%1/2;`E35"
$E32.4 0 0 ":x"
$E33.4 0 0 ":x"
$E34. 0 0 ":x;`E35"
$E35.4 0 0 ":E31-E34;?z<0{0_z};`E38"
$E36.4 0 0 ":x"
$E37.4 0 0 ":x"
$E38.4 0 0 ":D:E35;`D02"
$E39.4 0 0 ":E41%5;`E40"
$E40.4 0 0 ":a=E42-1500000;?a<0{0_a%3};`E26"
$E41.4 0 0 ":E25;`E42"
$E42.4 0 0 ":E25;`E39"
@fk_guts
L=37
$L0.4 0 0 ":B14;`L1"
$L1.4 0 0 ":W9;`L2"
$L2. 0 0 ":x;`L3"
$L3.4 0 0 ":W8;`L4"
$L4.4 0 0 ":L0+L1+L2+L3;`L5"
$L5.4 0 0 ":L4-L36;?z<0{0_z};`L13"
$L6. 0 0 ":x;`L7"
$L7.4 0 0 ":L6%10;`L12"
$L8. 0 0 ":x;`L12"
$L9. 0 0 ":x;`L12"
$L10. 0 0 ":x;`L11"
$L11.4 0 0 ":L10*22500;`L12"
$L12.4 0 0 ":L8+L9+L11;`L13"
$L13.4 0 0 ":?L7<L12{L7_L12};`L14"
$L14.4 0 0 ":L5%3;`L15"
$L15.4 0 0 ":L13-L14;?z<0{0_z};`L16"
$L16.4 0 0 ":L15;`L17"
$L17.4 0 0 ":E38;`L18"
$L18.4 0 0 ":?L17<L16{L17_L16};`L31"
$L19. 0 0 ":x;`L20"
$L20.4 0 0 ":?L19>10000{7500_L19%75};`L21"
$L21.4 0 0 ":a=(L19-10000);?a>45000{22500_a%50};?z<0{0_z};`L22"
$L22.4 0 0 ":a=(L19-55000);?a>0{a/3_0};`L23"
$L23.4 0 0 ":D:L20+L21+L22;?z>50000{50000_z};`L31"
$L24. 0 0 ":x;`L31"
$L25. 0 0 ":x;`L31"
$L26. 0 0 ":x;`L28"
$L27. 0 0 ":x;`L28"
$L28.4 0 0 ":L26+L27;`L29"
$L29.4 0 0 ":?L28<6000000{L28_6000000};`L30"
$L30.4 0 0 ":L28-L29;`L31"
$L31.4 0 0 ":L18+L23+L24+L25;`L32"
$L32.4 0 0 ":E38;`L33"
$L33.4 0 0 ":?L31<L32{L31_L32};`L34"
$L34.4 0 0 ":L29;`L35"
$L35.4 0 0 ":L33+L34;`D28"
$L36. 10000 0 ":x;`L5"
L=0
@nz_guts